home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / indus / auto_inv / inv_menu.prg < prev    next >
Text File  |  1991-08-07  |  3KB  |  75 lines
  1. *--------------------------------------------------------------------------
  2. * Program KEV_MENU - Main Menu for Kevins Subaru Invoicing
  3. *                       (c) 1989 Systematics Consulting, Inc.
  4.  
  5. *     modified 8/1991 to allow user to change tax rate and
  6. *     starting invoice number.   (ADF/8-91)
  7. *--------------------------------------------------------------------------
  8. *   FILE ALLOCATION AND USE:
  9. *   DATA BASE FILE    INDEX FILE          USE
  10. *   ----------------  ------------   ------------------------------
  11. *   KEV_MSTR.DBF      KEV_IDX1.NDX     Master Nane and address file
  12. *   KEV_LBOR.DBF      KEV_IDX2.NDX     Labor Detail file
  13. *   KEV_PART.DBF      KEV_IDX3.NDX     Parts Detail file
  14. *   KEV_INVNO.MEM     Memory variable file for next Invoice #
  15. *   KEV_TAX.MEM       Memory variable file for default tax rate
  16. *--------------------------------------------------------------------------
  17.  
  18. SET TALK OFF
  19. SET ECHO OFF
  20. SET STATUS OFF
  21. CLOSE ALL
  22. STORE " " TO CHOICE
  23. DO WHILE .T.
  24.  
  25.   CLEAR
  26.    @ 24, 10 SAY  "Systematics Consulting, Inc. (303)674-8445 - Program KEV_MENU"
  27.    @ 1,  1 SAY  DATE()
  28.    @ 1, 71 SAY  TIME()
  29.    @ 2,  5 TO  5,75 DOUBLE
  30.    @ 3, 15 SAY  "             KEVIN'S SUBARU               "
  31.    @ 4, 15 SAY  "               Main Menu                  "
  32.    @ 5, 10 TO  19,70
  33.    @ 6, 15 SAY  "  TASK CODE   DESCRIPTION           "
  34.    @ 7, 15 SAY  "   -------   ---------------------------- "
  35.    @ 8, 15 SAY  "      1      Add New Invoice"
  36.    @ 9, 15 SAY  "      2      Edit/Display an Invoice"
  37.    @ 10,15 SAY  "      3      Add/Edit more Labor items"
  38.    @ 11,15 SAY  "      4               more Parts items"
  39.    @ 12,15 SAY  ""
  40.    @ 13,15 SAY  "      5      Which invoices are ready to print?"
  41.    @ 14,15 SAY  "      6      Print an Invoice"
  42.    @ 15,15 SAY  "      7      List all Invoices on file"
  43.    @ 16,15 SAY  "      S      System Functions - reset print flags"
  44.    @ 17,15 SAY  "      C      Change System Defaults and Reindex files"
  45.    @ 18,15 SAY  "      Q      Quit Invoice System"
  46.    @ 20,15
  47.    WAIT  "               Enter your choice (Task Code) --> "  TO CHOICE
  48.    DO CASE
  49.       CASE CHOICE = "1"
  50.         DO KEV_0100
  51.       CASE CHOICE = "2"
  52.         DO KEV_0200
  53.       CASE CHOICE = "3"
  54.         DO KEV_0300
  55.       CASE CHOICE = "4"
  56.         DO KEV_0400
  57.       CASE CHOICE = "5"
  58.         DO KEV_0500
  59.       CASE CHOICE = "6"
  60.         DO KEV_0600
  61.       CASE CHOICE = "7"
  62.         DO KEV_0510
  63.       CASE UPPER(CHOICE) = "S"
  64.         DO KEV_0650
  65.       CASE UPPER(CHOICE) = "C"
  66.         DO KEV_0700
  67.       CASE UPPER(CHOICE) = "Q"
  68.         QUIT
  69.     OTHERWISE
  70.     LOOP
  71.     ENDCASE
  72.  ENDDO
  73. *---------- END OF PROGRAM ----------------
  74.  
  75.